(defvar x 100)

(defmethod fun1 (x)
    (print x)
      (fun2))


(defmethod $%^ (x)
    (print x)
    ;(fun2)
    (let ((x 20))
      (fun2))
    (print x))


(defmethod fun2 ()
    (print x))

($%^ 5)
